some script to get you started,

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Main part found somewhere else (OpenNTF?) and developed by a Bernd Szarkowski-Tegtmeier. Any errors created by me :)

omitted the declarations, etc

'Get all received fields
Forall receivedtext In doc.GetReceivedItemText( )
strText = strText & "Received: " & receivedtext & Chr(13) & Chr(10)
End Forall
'Now get all fields except body, received, ....
Forall itemX In doc.Items
If itemX.name <> "Received" And itemX.Name <> "Body" And itemX.Name <> "Form" And itemX.Name<>"X-MIMETrack" And itemX.Name <>"$UpdatedBy" And itemX.Name <>"$MIMETrack" Then
strText = strText & itemX.name & ": " & itemX.Text & Chr(13) & Chr(10)
End If
End Forall

'at last Body
Set item = Doc.GetFirstItem("Body")
If Not item Is Nothing Then
If item.Type = 25 Then
Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
If mime.ContentType = "multipart" Then
If mime.Preamble = "" Then
p$ = "No preamble"
Else
p$ = mime.Preamble
End If
Set child = mime.GetFirstChildEntity
While Not(child Is Nothing)
Set child = child.GetNextSibling
Wend
Else ' if not multipart
strText = strText & Chr(13) & Chr(10) & mime.ContentAsText
End If
End If
Else
Set RTItem = doc.GetfirstItem("Body")
strText = strText & Chr(13) & Chr(10) & RTitem.text
End If
Else
strText = strText & Chr(13) & Chr(10) & "(no body)"
End If

Feedback response number WEBB7X3D3E created by ~Yoshi Zekponetheroden on 10/22/2009

Return to top

Get the mail header programmaticall... (~Sigmund Deslum... 22.Oct.09)

. . some script to get you started, (~Yoshi Zekponet... 22.Oct.09)

Printer-friendly

Search this forum

Member Tools

RSS Feeds

RSS feeds

	All forum posts RSS
	All main topics RSS